type point = (int*int) 
and event = 
  [=`Wait 
  | `Go
  | `Move of point 
  | `Attack of Class.actor
  | `Wakeup
  | `Die
  | `Sit
  | `Stand
  | `Push of int
  | `Help of int
  ]
and reaction =
  [=`Wait
  | `Move of point 
  | `Lie
  | `Sit
  | `Stand
  | `Attack of int
  | `Push of int
  | `Go
  ];

